C**** LOOP2.F4 *********
C*** LOOP, SORT2, CODN, NALF, BAUTO, FINDIT, MVBEAM, MVBX
C*** JUGGLE, LTLLUP, XNOTE, UPDATE, NEWR, MSSLUP, RNX, LUP2
C*** RJED, RJED2, EDX, EQUAL, BOXX
C*** PARCH, RCURVE

	LOOP.FAI[P11
	ENTRY DPYNEW,FSCAN,BOX,dpydo

C**** MUS3.F4 ********
C** LINES, LINED, EDIT, MOVIT, OUTLMT, GETPTS, GUPDAT, DELETE, STFCH,COPYIT,CPYIT

C*** MUS1.F4 ****
C*** STAFF, KSIG, METER, MAKNUM ********


C***** MUS2.F4 *******
C***** SCANR, LNEND, BARS, SCAN2, SCAN3, SCAN4
C ***** MSS SCANNER ******* SCN/FOR *********
 
C** INSUB.F4
C**	BMX(RA),ACSHFT(RX),SETUP,TYPE,SLRLEV,OUTLIM,NOTAIL,POSIT,SLEND

SLOOP2.F4
C**** SLOOP, SLRS, RNOTE, DRWNT, RDRAW, CIRCLE, RUNTHR

SLOOP.FAI[NEW,LCS]
	RNOTE,DRWNT,RDRAW,SLOOP,CIRCLE,RUNTHR,SLRS

HOMER.F4[P11
C***** HOMER, PLACE, HOMX, LULOOP, ZCRSOR, HELP, ORDER, DPYX, FILX, RREAD, NUMZ

BEAM.F4[P11
C******  BMSTF, BMS, TREM, STEMUP, PBEAM ***********

BMFAI.FAI[NEW  (FOR MP ONLY)
	 BEAMX	;	SUBROUTINE BEAMX

NOTES.F4[P11
C**** NOTWRT, STEM
C**** ORDNT, LDGLN, TAILS, DOTIT, SAVEM, GETEM ****
C***** ACCI, DIAMND, RST ***********
C*** MRK, YPOS, R4SET, MRKZ, TENUTO, MRKX ***************

CODE4.F4[P11,LCS]
C****** CODE4.F4   DRAWS LINES, DASHES, ETC. *******
C***** SUBROUTINE DASHLN
C****** CRESC, HEAVY, HBRACK, CBRACK, RPDOT -----

C**** ALPHA.F4[P11,LCS] **********
C***** ALPHA, SPACER,JDRAW,EXTEN,RTLINE,THICK,RBJX,CENTX,CENTER,LINX
C***** UNPACK,ROFF,NOZERO,RHORZ

	TITLE MSSIO ; ********* JUN 8,74 *********
	INTERNAL GETFI2,FASTI2,INMUS,USTI,USTO,RLOOP
	INTERNAL LOOK,LOOKD,LOOKF,PAC,UNPAC,LOOKX,LOOKL
	INTERNAL PUTEXT,EXTOUT,GETEXT,EXTIN,FINEXT
	ENTRY TYPWRD,TYPSTR,TYPINT,TYPCRLF,TYPFLT,TYPCHR

C  MPRNT.F4********** DRAWS MUSIC ON THE PLOTTER OR XGP **********
C*** UNKNOWN, ENDIT, ILLEGL, TOOMCH, PLTCMD, SLUR, NAMEXT

LINXG.FAI[NEW    (FOR MP ONLY)
	LINES,PLOTS,NOIR,LINED

CLEFXG.F4[NEW    (FOR MP ONLY)
C *** CLEFS, GETLIB